home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / XAMPP 1.4.14 / xampp-win32-1.4.14-installer.exe / xampp / php / pear / Auth / SASL / Common.php < prev    next >
PHP Script  |  2004-03-24  |  3KB  |  75 lines
  1. <?php
  2. // +-----------------------------------------------------------------------+ 
  3. // | Copyright (c) 2002-2003 Richard Heyes                                 | 
  4. // | All rights reserved.                                                  | 
  5. // |                                                                       | 
  6. // | Redistribution and use in source and binary forms, with or without    | 
  7. // | modification, are permitted provided that the following conditions    | 
  8. // | are met:                                                              | 
  9. // |                                                                       | 
  10. // | o Redistributions of source code must retain the above copyright      | 
  11. // |   notice, this list of conditions and the following disclaimer.       | 
  12. // | o Redistributions in binary form must reproduce the above copyright   | 
  13. // |   notice, this list of conditions and the following disclaimer in the | 
  14. // |   documentation and/or other materials provided with the distribution.| 
  15. // | o The names of the authors may not be used to endorse or promote      | 
  16. // |   products derived from this software without specific prior written  | 
  17. // |   permission.                                                         | 
  18. // |                                                                       | 
  19. // | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS   | 
  20. // | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT     | 
  21. // | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR | 
  22. // | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT  | 
  23. // | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | 
  24. // | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT      | 
  25. // | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, | 
  26. // | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY | 
  27. // | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT   | 
  28. // | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE | 
  29. // | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.  | 
  30. // |                                                                       | 
  31. // +-----------------------------------------------------------------------+ 
  32. // | Author: Richard Heyes <richard@php.net>                               | 
  33. // +-----------------------------------------------------------------------+ 
  34. // 
  35. // $Id: Common.php,v 1.6 2003/02/21 16:07:17 mj Exp $
  36.  
  37. /**
  38. * Common functionality to SASL mechanisms
  39. *
  40. * @author  Richard Heyes <richard@php.net>
  41. * @access  public
  42. * @version 1.0
  43. * @package Auth_SASL
  44. */
  45.  
  46. class Auth_SASL_Common
  47. {
  48.     /**
  49.     * Function which implements HMAC MD5 digest
  50.     *
  51.     * @param  string $key  The secret key
  52.     * @param  string $data The data to protect
  53.     * @return string       The HMAC MD5 digest
  54.     */
  55.     function _HMAC_MD5($key, $data)
  56.     {
  57.         if (strlen($key) > 64) {
  58.             $key = pack('H32', md5($key));
  59.         }
  60.  
  61.         if (strlen($key) < 64) {
  62.             $key = str_pad($key, 64, chr(0));
  63.         }
  64.  
  65.         $k_ipad = substr($key, 0, 64) ^ str_repeat(chr(0x36), 64);
  66.         $k_opad = substr($key, 0, 64) ^ str_repeat(chr(0x5C), 64);
  67.  
  68.         $inner  = pack('H32', md5($k_ipad . $data));
  69.         $digest = md5($k_opad . $inner);
  70.  
  71.         return $digest;
  72.     }
  73. }
  74. ?>
  75.